PC Answers 1995 December/PC Answers December 1995 (disc errors).iso/mxc/dryfly.dir/00005_MS for DryFly.ls

Text File | 1995-05-04 | 5.7 KB | 238 lines

global fixPal, myLine, auto, ok, gsliderbar, fullMoov, csn, lem, palName, bd, gAudBlrb, vid, tpal, myLine2, gExtraVid, gdirmovie, gmyLineKeep, gBackColor, gForeColor, profileVid, gVolume, gFirstTimeIn

on startMovie
  if the machineType = 256 then
    openXLib("XPALETTE.dll")
    set fixPal to XPALETTE(mnew)
  else
    openXLib("XPALETTE")
    set fixPal to fixPalette(mnew, the stageLeft, the stageTop, the stageRight, the stageBottom)
  end if
  set the textSize of field "Asset List" to 14
  if the colorDepth = 8 then
    set gBackColor to 29
    set gForeColor to 255
  end if
  if the colorDepth = 16 then
    if the machineType < 256 then
      set gBackColor to 729
      set gForeColor to 0
    else
      set gBackColor to 29
      set gForeColor to 255
    end if
  end if
  if the colorDepth = 24 then
    if the machineType < 256 then
      set gBackColor to 46550
      set gForeColor to 0
    else
      set gBackColor to 29
      set gForeColor to 54
    end if
  end if
  if the colorDepth = 32 then
    if the machineType < 256 then
      set gBackColor to 48598
      set gForeColor to 0
    else
      set gBackColor to 29
      set gForeColor to 255
    end if
  end if
  if myLine <> 1 then
    set the controller of cast 101 to 0
  end if
  if myLine <> 1 then
    set the video of cast 101 to 0
  end if
  set auto to 0
  set ok to 3
  set myLine to 1
  set myLine2 to 1
  set gmyLineKeep to 1
  set profileVid to 0
  set tpal to 201
  set fullMoov to the duration of cast 101
  set gExtraVid to 1
  set csn to the number of lines in field "asset list"
  cursor(0)
end

on setVid
  if myLine = -1 then
    exit
  end if
  if myLine2 = myLine then
    exit
  end if
  if myLine >= 1 then
    set the castNum of sprite 24 to 26
    updateStage()
  end if
  colorMe()
  set the locV of sprite 3 to -500
  set the locV of sprite 4 to -500
  set the locV of sprite 5 to -500
  set the locV of sprite 6 to -500
  set the locV of sprite 7 to -500
  blankBut()
  moovUpDown()
  updateStage()
  set the castNum of sprite 24 to myLine + 100
  set fullMoov to the duration of cast (myLine + 100)
  set palName to myLine + 200
  puppetPalette(palName)
  patchPal()
  set myLine2 to myLine
  set the locV of sprite 3 to 39
  set the locV of sprite 4 to 74
  set the locV of sprite 5 to 114
  set the locV of sprite 6 to 155
  set the locV of sprite 7 to 191
  set the video of cast (myLine + 100) to 1
  updateStage()
  set the controller of cast (myLine + 100) to gsliderbar
  updateStage()
  set the volume of sprite 24 to gVolume
end

on autoPlay
  set fullMoov to the duration of cast (myLine + 100)
  set the castNum of sprite 7 to 35
  updateStage()
  set auto to 1
end

on colorMe
  set the foreColor of field "asset list" to gForeColor
  if myLine = -1 then
    set the foreColor of field "asset list" to gForeColor
    exit
  end if
  set the foreColor of line myLine of field "asset list" to gBackColor
end

on check
  global myLine, auto, csn, gExtraVid, fullMoov
  if myLine > (csn + gExtraVid) then
    exit
  end if
  if (the movieTime of sprite 24 > 0) and (the movieTime of sprite 24 <> fullMoov) then
    exit
  end if
  if (auto = 0) and (the movieTime of sprite 24 = fullMoov) then
    if myLine = (csn + gExtraVid) then
      set the movieTime of sprite 24 to 0
      exit
    end if
  end if
  if (auto = 1) and (the movieRate of sprite 24 = 0) then
    if the movieTime of sprite 24 = fullMoov then
      if myLine = csn then
        set auto to 0
        set myLine to 1
        set the castNum of sprite 7 to 25
        exit
      else
        set myLine to myLine + 1
        moovUpDown()
      end if
    else
      if (the movieTime of sprite 24 = 0) and (auto = 1) then
        set the movieRate of sprite 24 to 1
      else
        set the movieRate of sprite 24 to 0
      end if
    end if
  end if
end

on moovUpDown
  global myLine, vid
  if vid = 0 then
    set the video of cast (myLine + 100) to 0
    set the controller of cast (myLine + 100) to 0
    updateStage()
    set vid to 1
    exit
  end if
  if vid = 1 then
    set the video of cast (myLine + 100) to 1
    set the controller of cast (myLine + 100) to 1
    updateStage()
    set vid to 0
    exit
  end if
end

on blankBut
  global gAudBlrb, auto
  if myLine = 1 then
    set the castNum of sprite 4 to 30
    set the castNum of sprite 6 to 24
    if auto = 0 then
      set the castNum of sprite 7 to 25
    else
      set the castNum of sprite 7 to 35
    end if
  else
    if (myLine > 1) and (myLine < csn) then
      set the castNum of sprite 4 to 22
      set the castNum of sprite 6 to 24
      if auto = 0 then
        set the castNum of sprite 7 to 25
      else
        set the castNum of sprite 7 to 35
      end if
    else
      if myLine = csn then
        set the castNum of sprite 4 to 22
        set the castNum of sprite 6 to 40
        if auto = 0 then
          set the castNum of sprite 7 to 25
        else
          set the castNum of sprite 7 to 35
        end if
      else
        if myLine = (csn + gExtraVid) then
          set the castNum of sprite 4 to 30
          set the castNum of sprite 6 to 40
          set the castNum of sprite 7 to 50
        else
          if gAudBlrb = 1 then
            set the castNum of sprite 4 to 30
            set the castNum of sprite 6 to 40
            set the castNum of sprite 7 to 50
          end if
        end if
      end if
    end if
  end if
end

on patchPal
  fixPal(mPatchIt)
end

on stopMovie
  if the machineType = 256 then
    fixPal(mdispose)
    closeXLib("xpalette.dll")
  else
    fixPal(mdispose)
    closeXLib("XPALETTE")
  end if
end

on flushMe
  if the machineType = 256 then
    openXLib("GLOBMEM")
    set OBJ to GLOBMEM(mnew)
    OBJ(mFreeHandles, 8192)
    OBJ(mFreeHandles, 8192)
    OBJ(mFreeHandles, 8192)
    OBJ(mdispose)
  end if
end